ML }  X c0C)HCCH Mhhݩh `eCDiCD`  RyHP   * 1H0芢@) Y0.Ș` i #(PMR\ \b Pgi 0  % @ / ՠ`d   0DDԝLy N@  )?HI Y0`HIJH) * J j * hJJJ )HJ h i     } YS S0 i`΢ϣ߳H J3xj2h} 1 |9 ӭ45(420 * (0241өX.`  R *i)Lvw  ~*P}E 5 LN(G E  r s k rsrL ( E LO(0d( L iE0O +)$IC  H S8 }q p h   j 8no CDLQ CFl M  LO Ri)Llk2'")*F }$F$F$F$F$ 5 )ШF/Șl]kpqС,LQ/A! Ti)Zlk@ ܬ/i)(")")k }$F$F$F 5$/L /lF@jj(LNkle$$%8(k()` R 8 ELO Ri)^>jf | NrC s } ) vw5g   enfo Glvw LQ@iLm>j FL ~Jjjjii p qEh }jlrs`LQ:$ȱ$@+[_#{ 8  Խut! ai 8   E I   ] C } H h    ˰ 8  N   Lm E  ,  [ `LQ ,/ 8 ~/  Ơ? ѩ}/  [ /Lj0?MoLn FjMqLp NklLOLQnLoMlNLO R"(+}ըHH`Q R!!  % !   / .   FȑF! /GF \H"+0+* }! F tLQnm: J~nTF1F  *n+)5! n (, n)1JJJn(n*o} I ,0  ci a oF? @ , 8,0 ʩ0H Eh   i}  D ]DmmFLQvtu`*&!*@h ] 0 ^0` c 0l$$%}()()%*&J%H,@hH hH@,h $% 8i8$(%)0hhH ]h`() c 0H c 0 h}`hhh&JJ ](ll  LQ0  /qnoHH 9 9 H H  I9  9 } Nd EH  Q8 o n  FnoL HII/ Ih8`h`Lnon`no`u F }E VEhLO/luF l0BF/lɜɛ׽hE N  b VFL FREE SECTORS C} H) *Fh ):FȽ F FC IH' 0 d  i:Fȩ/F.l`CD/08HDIC}IHȰ/F`ȱ$>.+.i ȱ$:刄H !A \ Hȱ$*?ȝ 2. ? [_{ ,0}-:) 0$:>WI  IТ,LQH  0hLd ~ t u`C ?( 0(C.` E } R =! .ti S0N EE D XC )0')AY  )ע ? 0E088FG \o}n  (HhLcL3 iJ i Lqp 0=rspnqopqlk`jZj0  j FL`H}FhȑFȽlFi0 h FFLFpvqwgneofLF pq7  G0i 0 FJJh1FqȱFpȱFk`B!}08`hEE D 8. =D}tui( TʩL`b!)    cȌaȌd b`aab}H8 hdaHcd8 cH hHH  \h hc` =Hh I8ih( t  ( t(!` L\}CJfCJfCJfCDfC` a  HII  INdh  `h  `n)8jHniPoijIjFIjFIjh` a } I 38  8H0 I  ' H LQ8j Y  8j NdY  &I &I &IHeH.p!}Iiq  `!.莿 2Jjj }.m Ȉ!m FG` ɩLQ z "} e Hi04 \ Ȍ  8 i h !`I0 `C Y8.`DOS SYS#} I  ` ~ݩ.C/`ba.m۩mѤC9 `C L] H  ,- '0 l $}, BLVDE`D1:AUTORUN.SYS8hhJ ȱHȱIȱBȱDȱEeeHHLV)  %}1*  ,,p-  0 I &  '0   Lw)l, 0  I&LD1:MEM.SAV&}E:D1:DUP.SYS|",@4@h!%:I Τ4gzl&@b@5 X`lBWK|'} D  C D     )16CS S)  C)D1 p p (}0 C9DI pCDL~CiCDiD` DD˙` d J)L !)}D L(( LL()  L| L( S LH 0p n  *} CY?  q  L L  ` )+} `A! d߰")-݆ "  $G@LLL&0") $G%,}H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0-})8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH).}  hyhyB q L> Lm JJ  Ln*` dB%'/}8  H H` 1 { LL   !L     Hh SY?  q  1L0}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L1}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@2}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q3} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF 4} G) *Gȩ GȽG GȌd q q G`  8   0G  `D5}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y6}`piH n0)բY? 08`0 7}  0$L GGȽG L `8L`L8}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`9}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE:} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR;}1LJ舩9GIH`LJJ`HGHh l`<} S gL   8 rii `дCDCG W  =}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}>} HE |||||DOS DOSDOS SYS }?}}@}CDOS SYSA} 0`BDELV !B B}`LVUQ   ]   TU J ]L!T  #      TU C} L ? .  t`GBJ V~DEHI B V0dVD}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEhE}DEL8HI   0 HI,0 0  9 .G VLOF},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHIG} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHIH} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO I}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -J}LLu DEHILV 9 .l 9 .l  `` s$B VBHK}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVLL}1 3u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2eM}1i1232435ޥ<<8}HPdCCOLCDLIA @@2 @d@d ӠϠ ;@2O},9@,%68,-:68@,-@O68@,-@d68@,-@ y68@,-@P}68@,-@68@,-@G+@%@ @@)+@3 A= @@G @0#("Q}A#A("GTIA GR.10,+@@+FOOL SCREEN HANDLER-2ACOLOR 0<A@R}COLOR 2FA@8COLOR 3PA@COLOR 9Z A AF COLOR 10d AAS} COLOR 11nAAPCOLOR 8x!-@y! A`))8@$+'@&P:'@,,T},!,!/@),@y@)/@y&!,!/@y),@y@U})/@& -@A $4 #B!-@1%"0C:,%4  33F:A`V},%AV$F:Aa,%@AA ?AP:C:,'AV,?AC:,&F:A,$AV BBATW} ;"( THIS IS GRAPHICS 10/7;( P. BUDGELL 1983 )6-F:@,&A(& )$ @B7tX}$'@@72,169,0,141,10,212,141,27,208,141,26,208,169,144,69,79,37'8878,141,24,208,169,10,69,79,37,78,141,23,208,104,64Y} D:GR10X7.BAS41,10,212,141,27,208,141,26,208,169,144,69,79,37'8878,141,24,208,169,10,69,79,37,78,141,23,208,104,640100 ; ɠҠӠ0110 ;0120 *=$6000130 ;0140 COLPF1=$D017 ; THE TEXT0150 COLPF2=$D018 ; THE WINDOW0160 [}COLBK =$D01A ; THE BORDER0170 WSYNC =$D40A ; WAIT FOR SYNC0180 COLRSH=$4F ; ATTRACT0190 DRKMSK=$4E ; MODE0200 PRIOR\} =$D01B0210 ;0220 PHA0230 LDA #00240 STA WSYNC ; WAIT HORIZ SYNC0250 STA PRIOR ; SWITCH OFF GTIA0260 STA COLBK]} ; BLACK BORDER0270 LDA #$900271 EOR COLRSH ; FOR0272 AND DRKMSK ; PROTECTION0280 STA COLPF2 ; DARK BLUE W^}INDOW0290 LDA #$0A0291 EOR COLRSH ; FOR0292 AND DRKMSK ; PROTECTION0300 STA COLPF1 ; WHITE TEXT0310 PLA03_}20 RTI ; RETURN FROM INTER. ; FOR0292 AND DRKMSK ; PROTECTION0300 STA COLPF1 ; WHITE TEXT0310 PLA03%D1DLISBITBITBIT@Bh@f@@@ $$******************************$$* a} HORIZONTAL SCROLL DEMO *$$* LISTING #1 *($$* BY KYLE S. PEACOCK *2$$* ANALOG COMPUTI b}NG #14 *<$$******************************FP +Z-@d++ #THIS IS A TEST OF HORIZONTAL c} SCROLLn x--- FIND THE DISPLAY LIST%%6-F:Aa,$AV%F:A`,6-F:%@,6-F: d}%@,6-F:%@,""--- NOW ADD 16 (HEX: $10) TO##--- DISPLAY LIST INSTRUCTIONS%@ e}%@%@%@%@%@--- HORIZONTAL SCROLL"-@, f}BBv6-A @ J A D:FINESC1.BASONTAL SCROLL"-@, Q !i) > WHERPLUMESSDLISADLMSLMS $$*h}*****************************$$* HORIZONTAL SCROLL DEMO *$$* LISTING #2 *($$* BY KYLE S. Pi}EACOCK *2$$* ANALOG COMPUTING #14 *<$$******************************FP- CLEAR OUT MESSAGE SPACEZj}d&;@`,&(}INITIALIZING...n-AVx@I$AV%@P$AV%k}@Q$AV%@R$AV%@S$AV% A@dl}- READ WHERE IN MEMORY - MESSAGE GOES, ADD ON FOR- COLOR, & MESSAGE. THEN- INSTALL INTO MEMORYm}-@@ "-@B:,&@55%&@@:7%@<%@,,&@2%   "n},- NOW READ & INSTALL6- CUSTOMIZED DISPLAY LIST@J AT"^@$AV%h6-%@o}r A@|- NOW TELL ANTIC WHERE TO!!- FIND OUR NEW DISPLAY LIST'A`'Aap}@ - CHANGE VALUE OF 'HSCROL' -@6@BBv""- LOOP VALUE OFq} 'Y' DICTATES""- SPEED OF HORIZONTAL SCROLL-@P  ##- NOW UPDATE LMS INSTRUCTIONSr}**6-F:@$AV%@,%@**6-F:@$AV%@%,%@- TEST FOR WRAP AROUNDs}!&'!@`6-'6-0@$AV%@:@$AV%@%D A`Xt}b- MESSAGESl 12544,64*"HORIZONTAL SCROLLING"412820,192>22"NEXT TIME WE'LL EXAMINE VERTICAL SCROLLu}ING"H13056,128R" A.N.A.L.O.G."\13332,192f "SEE YOU IN SIXTY DAYS..."p13568,64z" ISSUE #14v}"- DISPLAY LIST DATA112,112,11270,00,49112,112,112,11286,00,50112,112,112,112w}70,00,51112,112,112,11286,00,52112,112,112,112,11270,00,5365,00,06 D:FINESC2.BAS2|  -QXQXQXQXyS@@*@@9<ARI(>:Ay}%,S#By%-A6A"!% y@(>:A%,(:("ENTER STARTING LINE #, INCREMENT :@yG 6-z}P:,6-P:,G @)!B) @)!ABy?@ A?@@{}Ky$(>:A%,(($( DATA y$)@$"AUB y+"A'!A@d+ B y&6-?|}:A6<,(>:,& B!y6((CONT!-@3AB@6&"y1AB@6-%1 B}}B#y@&$y]]162,13,104,104,104,221,26,6,240,10,202,16,248,133,212,169,0,133,213,96,189,40,6,76,13,6%yee32~},109,106,107,108,117,105,111,98,110,103,104,116,121,48,48,49,50,51,52,53,54,65,66,67,68,69,70}Q@(>:A%,(!}(5-BB9(= G(B Q(B }H!(CLR:POKE842,12:?CHR$(125)3-@EAB@H&} D:HEXPAD.BAS9(= G(B Q(B }H!(CLR:POKE842,12:?CHR$(125)3-@EAB@H&0100 *= $6000110 LDX #130120 PLA0130 PLA0140 PLA0150 CMPKY CMP OLDKC,X0160 }BEQ GOTKY0170 DEX0180 BPL CMPKY0190 NEWKY STA $D40200 LDA #00210 STA $D50220 RTS02}30 GOTKY LDA NEWKC,X0240 JMP NEWKY0250 OLDKC .BYTE " mjkluiobnghty"0260 NEWKC .BYTE "00123456ABCDEF"0270 } .ENDKY LDA NEWKC,X0240 JMP NEWKY0250 OLDKC .BYTE " mjkluiobnghty"0260 NEWKC .BYTE "00123456ABCDEF"0270 l LG }  AR 70@@@70@@@( }}ŠΠՠ(((<&#(1. METRIC TO U.S. STANDARD&(F&#(2. U.S. STANDARD TO METRIC&(P%"(3. U.S. STANDARD MEASURE}S%(Z!(4. HOUSEHOLD MEASURES!(_%(5. METRIC PREFIX CHART"(%(n7AR@(7(ŠŠƠŠ}Šx0#@@K:0)@. @I)!@S$@. @A A3pA&@H}AA `AA0AP##@@K:!!(ծӮĠӠ ( ( (1. I}NCHES TO FEET(2. FEET TO YARDS((( 3. SQUARE INCHES TO SQUARE FEET''(4. SQUARE FEET TO SQUARE YARDS(}5. FEET TO MILES (6. SQUARE FEET TO ACRES"# (7. ACRES TO SQUARE FEET#(,"(8. [RETURN TO MENU]("(6""(}ŠŠƠŠŠ@)@J) @I)!@V(}) A TY A3pY&@HA"PA# }A#A$`A%0A&A&p@##@@K:& (ĠӠ#(&('}('(1. TEASPOONS TO TABLESPOONS(2. TABLESPOONS TO CUPS (3. CUPS TO FLUID OUNCES(4. CUPS TO PINTS}(5. CUPS TO QUARTS(6. PINTS TO QUARTS(7. PINTS TO GALLONS (8. QUARTS TO GALLONS (&"(9. [R}ETURN TO MENU]("(0""(ŠŠƠŠŠ:)@D) @I)!@W(}) APNa A3p}a&@HA'@A(A(A)PA0 A0A1`A20@##@@K:"(}àϠծӮ(("(!!(1. CENTIMETERS TO INCHES(2. METERS TO FEET(3. KILOMETERS TO MILES(}4. KILOGRAMS TO POUNDS(5. GRAMS TO OUNCES (6. LITERS TO QUARTS(7. LITERS TO GALLONS ))(!8. DEGREE}S CELCIUS TO FAHRENHEIT*%((9. [Return to Menu]"(%(>""(ŠŠƠŠŠH)@R) @I})!@W(}) A\a A3pa&@HAAPA AApA@AA@}##@@K:%"(ծӮĠϠà%($($(1. INCHES TO CENTIMETERS(2. FEET TO} METERS(3. MILES TO KILOMETERS(4. POUNDS TO KILOGRAMS(5. OUNCES TO GRAMS(6. QUARTS TO LITERS}(7. GALLONS TO LITERS))(!8. DEGREES FAHRENHEIT TO CELCIUS$%((9. [RETURN TO MENU]"(%(.""(Š}ŠƠŠŠ8)@B) @I)!@W(}) A La A3pa&@HAPA AA}`A 0A!A"AA!@& (ӠϠӠ#(&(!(HOW MANY CENTIMETERS!0(0(} CENTIMETERS = $?9 INCHES A3 A(ӠϠԠ(((HOW MANY METERS(}&&( METERS = $@( FEET A3 A($(ӠϠӠ!($(P (HOW MANY KILOMETERS }d.(.( KILOMETERS = $?b MILESn A3 A`x$(ӠϠ !($((HOW MANY K}ILOGRAMS.(.( KILOGRAMS = $@  POUNDS A3 A0 (ӠϠӠ( ((HOW} MANY GRAMS(''( GRAMS = $?P OUNCES A3 A!(ӠϠӠ(!("(HOW} MANY LITERS(6((( LITERS = $@g QUARTS@ A3 ApJ-'(ӠӠϠԠ*(}-(h(DEGREES CELCIUS(|55( CELCIUS = $@%@2 FAHRENHEIT A3 A@"(}ӠϠӠ("((HOW MANY LITERS())( LITERS = $?&Au GALLONS A3 A# (}ӠϠӠ#(((HOW MANY INCHES0(0( INCHES = $@T CENTIMETERS A3 A}(ԠϠӠ((:( HOW MANY FEET(N&&( FEET = $?0H METERSX A3 APb}$(ӠϠӠ!($((HOW MANY MILES(++( MILES = $@` KILOMETERS A3 A} $(ӠϠӠ!($((HOW MANY POUNDS(++( POUNDS = $?E KILOGRAMS A3} A (ӠϠӠ( ( (HOW MANY OUNCES( ''( OUNCES = $@(5 GRAMS* A3} A `4!(ӠϠӠ(!(\(HOW MANY QUARTS(p((( QUARTS = $?` LITERSz A3} A!@& (ԠϠӠ#(&("(DEGREES FAHRENHEIT"(??( FAHRENHEIT = @'@ }$+&@2, CELCIUS A3 A""(ӠϠӠ("( (HOW MANY GALLONS ())( G}ALLONS = $@xP LITERS A3 A"C(ӠϠԠ(((HOW MANY INCHES(&&( }INCHES = '@ FEET  A3 A" (ԠϠӠ((. ( HOW MANY FEET(B %%( FEET }= '@ YARDSL  A3 A#PV -'(ŠӠϠŠԠ*(-(t &(HOW MANY SQUARE INCHES#}&( 44( SQUARE INCHES = 'AD SQUARE FEET  A3 A$  ,&(ŠԠϠŠӠ)(,( $}(HOW MANY SQUARE FEET!$( 33( SQUARE FEET = '@  SQUARE YARDS  A3 A$ (ԠϠ}Ӡ(( ( HOW MANY FEET( %%( FEET = 'AR MILES  A3 A%`( %(ŠԠϠ}Ӡ"(%(F $(HOW MANY SQUARE FEET!$(Z ,,( SQUARE FEET = 'B5` ACRESd  A3 A&0n %(}ӠϠŠԠ"(%( (HOW MANY ACRES( ,,( ACRES = $B5` SQUARE FEET  A3 A'} )#(ӠϠӠ&()( "(HOW MANY TEASPOONS"( 00( TEASPOONS = '@ TABLESPOONS } A3 A'p $(ӠϠӠ!($( $(HOW MANY TABLESPOONS!$(, ++( TABLESPOONS = '@} CUPS6  A3 A(@@ %(ӠϠĠӠ"(%(^ ( HOW MANY CUPS(r ,,( CUPS = $@} FLUID OUNCES|  A3 A) (ӠϠӠ(( ( HOW MANY CUPS( %%( CUPS = '@} PINTS  A3 A) (ӠϠӠ(( ( HOW MANY CUPS( &&( CUPS = '@} QUARTS  A3 A0P (ӠϠӠ( (0 (HOW MANY PINTS(D ''( PINTS = '@} QUARTSN  A3 A1 X !(ӠϠӠ(!(v (HOW MANY PINTS( ((( PINTS = '@} GALLONS  A3 A1 "(ӠϠӠ("( (HOW MANY QUARTS( ))( QUARTS = '@} GALLONS  A3 A2` @ ##@@K: -( (-(ŠΠӠĠ}ݠ )@ !!@x*@A3  *"@x@ (}* @ "@($* @}(}$##@@K:$(àؠԠ!($($!(PREFIXSYMBOLMEANING$(}$$(teraT1,000,000,000,000$$(gigaG 1,000,000,000$$(megaM 1,000,000(kilok} 1,000(hectoh 100(dekada 10(decid .1(centic .01(}millim .001%%(microu .000 001$$(nanon .000 000 001$$(picop .000 000 00}0 001++(femtof .000 000 000 000 001**(attoa .000 000 000 000 000 001$( ( ($(PRESS 0 FOR })@@HAQ A3p @P' +@'0@Z--@@-}(@ CONVERSIONd+-@@+(@PROGRAMSn-@AP xZ-@@5(@}BY ARTHUR A.NEVOLAI-@AM W+Z$D2:CONVERT.BASAP xZ-@@5(@P+,151DATHEXLINDATLIDDBYTPASCHKSUTOTA@ } *** RETROFIRE *** 990,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,10,11,12,13,14,15r;@, }9@",/-@"3"<68,-@ L6-A V#A` @`r( CHECKING DATA86-%@(LINE: }!"8B:,@AF%6-F:A,%F:A,$AV+C(LINE  MISSING!Fq-@@@ }56-@:7<,,&@H[6-@:7%@<%@,,&@Hq6-8,$@%8,#."@*@ $". }@%(% 6-%!A %6-&A-  ""@%2 A< F:A,@AdJ( WRI }TING FILE 6-@,6-A 6#A@ @`J @%n(BAD DATA: LINE dd488A48A6C5BD201C8D0AD48D15D0 }E6C568AA6840A9288590A900858FA90885B3A90085B2A000B18F91B2C8D0F9,856ccE690E6B3A590C940D0EF4C3A08A2BEA90F9D001FCAD0FAA9708D0 }01F8D011F8D021FA94F8D031F8D6B1FA9208D,30dd051FA9108D041FA9308D6D1FA9008D6C1FA9418DBC1FA91F8DBE1FA9008DBD1FA98F8D1F1F8D391 }F8D761F8D80,363dd1F8D8A1FA9018DCE1AD82065E4200413A900A27F9580CA10FB8D2F028D0ED48D08D28DC6028DC80220EE12A9FF,395ddA205 }9D91079D9B079DA507CA10F4A97385DF206511A210BDD61A95EB9D251CCA10F5A90A8DC502A90F8DC002A9,654dd048DC102A9C08D03D0A9088D0102A }9008D0002A9008D3002A91F8D3102A9008D07D4A215A0A1A907205CE4A93E,884$dd8D2F02A9038D1DD0A9C08D0ED4A9028598A20086BFBDC41848BDD3 }1848BDE21848BDB518F00F68858368858168,270.dd85852087174C4F09688582688580688584201817A6BFE8E00FD0CBA24986A4BDF11885A1BD3B198 }5A2BD851985,6388ddA3208E13A6A4CA10E7AD0AD2291F18692885B6AD0AD2291F18692885B8A900A2059D821CCA10FA8D361C8D371C,239Bdd8D38 }1C8D391CA9C48D221C8D231C8D241CA97985E6A90F8D7907A900A22F9D0007E8E07A90F820251220321220,504Ldd4512205B12207112207E12208B12A }90085AE204413200A14201C13201F14ADCE1AF006CECE1A4CD40BA5E8D0FC,324VddA5AAF0034C570FA90185AA854DA5EBC9039004A90085E7A5E7D025 }A5E5D009A6AEBDF91BF01A85E7A5E6C930B0,555`dd034CBD0A38E90185E6AAA90F9D0007A90085E5F8AD361CF0064CB00C4CC90CA5AD38E5EF85ADA5E }DE5EE85EDA5,409jddECE90085ECA5EBE90085EBC99090E0D8A5EE05F105F3D05CA5EFC911B056A5F2C906B050A5F4C906B04AA5CCC5,560tddDCD0 }44A201A00E206813A9FF85AAA5AAD0FCA20306F726F626F5CA10F7F8A20218B5F575F995F9CA10F7D8208B,998~dd12A9F085AAA5AAD0FCA5DFC9FFF00 }818690A85DF2065114CA00CA5E6C92FD004A205D002A202A00E206813A5BE,588dd38E922A2139DB31CCA10FAA5BA38E9300AA2139D9F1CCA10FAA900 }85BA85BEA213AD0AD209109DC71CAD0AD209,811dd109DDB1CA9009DEF1C9D031DAD0AD20910293F9D8B1CCA10DB3004A5AAD0FCA90185AAA2138E171 }DBD8B1CF036,641ddBD9F1C8580BDB31C8582203117A000BDB118518F918FAE171DDE8B1CF018BDC71C187DEF1C9DEF1C08E00AB00C,668dd28BD }9F1CE9004C690B4C9A0B28BD9F1C69009D9F1CC9C0B033C90A902F8580BDDB1C187D031D9D031DBDB31CE9,333dd009DB31CC90A90178582203117A00 }0BDB118518F918FAE171DCA300D4C220BAE171DA9009D8B1CF0EDA213A900,660dd1D8B1CCA10FAC900F0034C180BA9FF85AAA5AAD0FCC6F830034C9D }0CA200A00E206813ADFC02C912D014AEAA18,876ddADAB188DAA188EAB18A9FF8DFC024C3A08A208A01E206813A209A02D206813A20AA037206813AEC }F1ABDD31A8D,439dd831AA207A04B206813ADCC1A09108D6A1AADCD1A09108D6B1AA206A055206813A5AAD0FCAD1FD0C907F09EC906,147ddF049 }C903D012ADCF1A186901C903D002A9008DCF1A4C7C0CADCD1A1869018DCD1AC90AD00EA9008DCD1AADCC1A,878dd1869018DCC1AADCC1AF00CADCD1AC }905D005A9008DCC1AA91E85AA4CD40BAD1FD0C907D0F9ADCC1A8DE01AADCD,447dd1A0A0A0A0A8DE11A4C9008207E12A20CBDD61A95EB9D251CCA10F5 }4C7109A5AD1865EF85ADA5ED65EE85EDA5EC,699dd690085ECA5EB690085EBD8202512201610A200A5EBD00CA202A5ECDDA6189003CAD0F6E4AEF052B }02986AEA901,399dd85C1A5B620DB0FB5D60A0A0A0A1865B485B6A5B820DB0FB5D90A0A0A0A1865B485B84C2F0D86AEA90185C1A5B6,355 dd20C4 }0F85B698A6AE95D5A5B820C40F85B898A6AE95D8201C13200A14201F14AD281CC905F02BF8AD2A1C18AECF,383dd1A7DD01A8D2A1C85F0AD291C69008 }D291C85EFAD281C69008D281C85EEA203A00020CB11203212AE780286ABBD,674dd1D1BD0034C3B0EA5F505F605F7D01FA5EA2901D016A5EA090185EA }A9FF8D04D2A91485E9A204A00E2068134CD9,811(dd0DA5F5D022A5F6C910B01CA5EA2902D016A5EA090285EAA9508D04D2A91485E9A203A00E206813A }4ABBE1D1BBC,1792dd871CB9F51BF005CD0AD2B0034C3B0EA90A85C3E6B1A5B12901D08FF8A5F738E90285F7A5F6E90085F6A5F5E900,443<dd85F5 }D8207112A6ABBD5D1B85A8BD4D1B85A9BC2D1BC999F00AB9251CC905F0214C2B0EB9251CC995D007B9261C,534FddC900F010BC3D1BBD2D1BAA20B5112 }04512205B12A00620E90FA6AEBCAA1B4690668F88D0F9AD371CD00EA5B718,261Pdd658F85B79010E6B64C6A0EA5B738E58F85B7B002C6B6A90085C085 }C2A5B6C9B4B026C970904338E97085B6A6AE,582ZddF014B5D5186901C907D009A90095D5CAD0F0300295D5E6C04CBD0E18697085B6A6AEF012B5D538E }9011009A906,123ddd95D5CAD0F2300295D5E6C0A90185C2A6AEA5B64A4A4A4A95D6A900E8E003F00495D6D0F7A00220E911A00820E9,381ndd0FA6 }AEBCAA1B4690668F88D0F9AD381CD00EA5B918658F85B99010E6B84C060FA5B938E58F85B9B002C6B8A5B8,264xddC9B4B02AC970904738E97085B8A6A }EF014B5D8186901C907D009A90095D8CAD0F0300295D8E6C0A90285C24C57,343dd0F18697085B8A6AEF012B5D838E9011009A90695D8CAD0F2300295 }D8E6C0A90385C2A6AEA5B84A4A4A4A95D9A9,274dd00E8E003F00495D9D0F7A00320E911A5C0F03B201C13A6C2BCAD1BA9078591BEB11BBD3A1CA6919 }D7A1C88C691,946dd10F0200A14A6C2BCAD1BA9078591A691BD7A1CBED11B9D3A1C88C69110F0201F14AD1FD0C907D0034CEB09AD1F,958ddD0C9 }07D0F94C3A08A000C910900738E910C84CC60F85910A1865910A65916085B4A90785B5A90020A411A6AE60,826ddB9EC00290F858FB9EC004A4A4A4AA }AA58F187D6D1B858FB9EB00290FAAA58F187D811B858FA9007D771B859060,683ddEAA5ED290F85B2A90085B3A5ED4A4A4A4AAAA5B2187D6D1B85B2A5 }EC290FAAA5B2187D811B85B2A5B37D771B85,308ddB3A5EC4A4A4A4AAAA5B2187D951B85B2A5B37D8B1B85B3A5EB290FAAA5B2187DA31B85B2A5B37D9 }F1B85B346B3,115dd66B246B366B2A6AEBDA71B85B5A5B285B4A5B320A411A5B84A4A85BFA5B64A1865BF18693885BAA5B84A85BFA9,152ddC938 }E5BF85BF38E5B485BEA5B64A48290785CAA90738E5CA85CA6829F885CCA5B84A48290785CBA90738E5CB85,221ddCB684A4A4A1865CC85CCC5E2D016A }5E3F012A5EBD00EA5ECC905B008A90185E5A90085E7A6CCBD3A1C85CDBD3B,428dd1C85CEA5CB85C720341185CFA6CCBD421C85CDBD431C85CEA5CB85 }C720341185CEA5CF85CDA5CA85C720341185,333ddCFA5BF38E5CF85BCC5BEB0034CBD0A60A5CDC5CE901138E5CE85C6208A11A5C84A4A4A1865CE60A }5CE38E5CD85,597ddC6A90838E5C785C7208A11A5C84A4A4A1865CD60A205AD0AD22907C907F0F795D0CA10F2A5D20A0A0A1865D585,984ddDCA0 }0020E911A00120E91160A90085C9A2080A26C906C690071865C79002E6C9CAD0EF85C860A20806B42AC5B5,217dd9004E5B5E6B4CAD0F260F8BD261C1 }865A89D261C95ECBD251C65A99D251C95EBC950B007A90099361CD860A900,816dd38FD261C95ECA900FD251C95EBA901D0E8B9031C85A2BE071CB4D0 }B90B1C85FCB9121C85FDB4D1B9191CF81865,407"ddFD85FDA5FC690085FCB5D21865FD85FDA5FC690085FCD8A90285A6A2114C9512A96285A2A90385A }6A2004C9512,561,ddAD361C20C612A97085A2A90285A6A2034C9512A902186D371C20C612A97A85A2A90285A6A2064C9512A904186D,9266dd381C }20C612A98485A2A90285A6A2084C9512A99285A2A90385A6A20A4C9512A9A085A2A90185A6A20D4C9512A9,913@ddAA85A2A90385A6A20EA91F85A186A }5A6A5B5EB20A912E6A5C6A6D0F36085A74A4A4A4A091085A3208E13E6A1A5,756JddA7290F091085A3208E13E6A160484AAABD171B859EBD1A1B859FA0 }00680A0A0AAAA90785A6BDE71A919EE89818,456Tdd6928A8C6A6D0F160A900A899000399000499000599000699000788D0EE60A21DA9208590A900858 }FA8918F88D0,397^ddFBCAD00160E690D0F2A90085BAA92F8590A9B2858FA248A015A900918F8810FBCAD00160A58F186928858F90EA,496hddE690!}D0E6A9228590A942858FA208A015A900918F8810FBCAD00160A58F186928858F90EAE690D0E684A2BCCF19,674rddA90285A1A21686AF84B0A6AFA4B0B!}9DA1985A3208E13C6AFD00160E6A1E6B0D0E9A5A2858FA9008590068F2690,834|dd068F2690068F2690A58F186910859EA5906920859F068F2690068F!}2690A58F18659E859EA590659F859FA59E18,730dd65A1859E9002E69FA5A3858FA900859085A0068F2690068F2690068F2690A5901869E08590A4A0B!}18FA000919E,200ddE6A0A5A0C908F00DA59E186928859E90E7E69FD0E360A23FA4AEAD0AD2290FD9A318B0F69D3A1CCA10F060D8A9,475dd0085!}E3A2008A9D0006CAD0FAA6AEF013A200B5D6D5D0D053B5D9D5D3D04DE8E4AED0EFA6AEB5D30A0A85BFB5D0,479dd0A0A0A1865BF18693D8D02D0B5D30!}A0A0A85BFA9C438E5BFA8A204BDFC1B990006C8CA10F6A6AEE002D013A6DC,757ddA9009D3A1C9D3B1C9D421C9D431C4CE514A5AEC902D053AD0AD2C5!}DFB04CAD0AD22907C905B0F718690185E1AD,870dd0AD22907C905B0F718690185E00A0A0A1865E185E2A5E10A0A85BFA5E00A0A0A1865BF18693B85E!}3A5E10A0A0A,430dd85BFA9BA38E5BF85E4A6E2A9074C7D14A9018598A9108599A90085848585859C859AA900859BA8A59918659A99,312dd8000!}A9AA38E59B38A69CFD3A1C998200A59BD0062018174C1F15208717A5991869088599E69CA001A59B186908,895cc859BC93990C7A9108599A59A18691! }0859AC97190B3A900859BA9FF859DE69DA59D859CA900859AA8A59918659A,33dd998000A9AA38E59BA69C38FD3A1C998200A59AD0062018174C7A152! }08717A59C186908859CA001A59A18691085,619dd9AC97190C9A5991869088599A59B186908859BC93990AC60D8A90085C5ADFC02C921D00BA5E849FF! }85E8A9FF8D,838ddFC02A5E8F0034C62E4ADC302186901290709308DC302A5AAF002C6AAA5E7F002C6E7A5E3F0298D02D0AD0AD22D,551dd0AD2A! }4E4990006990406AD0AD22D0AD2990206AD0AD2293C990606A93A8DC202D015E6DDA5DD290FD00DE6DEA5,487ddDE2901AABD011C8DC202A6BBA9FC3D! }00039D0003A9FC3D01039D0103A6BDA9F33D00039D0003A9F33D01039D01,747dd03A5BA8D04D08D05D0A6BE86BBA9021D00039D0003A9021D01039D0!}103A6BC86BDA9081D00039D0003A9081D01,466dd039D0103A9828D00D2A9088D02D2A5C38D01D24A4A4A8D03D2E6C4A5C42907D006A5C3F002C6C3AE!}7802BD1D1B,683&cc85ACF01DAACABD851CC918B014BD821C1869019D821CBD851C69009D851C20FB16A202C6ACE4ACF026BD851CC9,330cc18B01F!}C900D007BD821CC9029014BD821C38E9029D821CBD851CE9009D851C20FB16CA10D3A5E9F00B38E90185,54:ddE94A09A08D05D24C62E4291F4A4A4A9D!}881CA8B9F11BDD221CF00B9D221CA91485E90A8D04D260203117A498BD,902DddB11839A9188591BDAD18A000318F0591918F60A5820A858FA9002A859!}0068F2690068FA58F85922690A5908593,810Ndd068F2690068F2690A58F186592858FA59065938590A91018658F858FA92065908590A58029074AAAA5!}844AA580,862Xdd6A4A4A18658F858FA5906900859060A583C582900B38E582858CA901858ED00BA58238E583858CA9FF858EA585,558bddC584901!}BD006A581C5809013A58138E580858AA585E584858BA901858DD011A58038E581858AA584E585858BA9,710lddFF858DA9008588858685878589A58BD0!}06A58AC58C9017A58B85978595A58A85968594A5954AA5946A85884C0F,711vdd18A90085978595A58C859685944A8586A5960597D00160A58818658C8!}588A58969008589C595901CD006A588C5,198dd949014A58838E5948588A589E5958589A58218658E8582A58618658A8586A587658B8587C595903AD0!}06A586C5,183dd949032A58638E5948586A587E5958587A58D30141002D0A5A58018658D8580A584690085844C8E18A58038E901,547dd8580A58!}4E9008584201817A59638E9018596A597E90085970596D0CD600104080080100055AAFF3FCFF3FCC030,739bb0C030001010101000100010001000100!}010001010000000000010100000101010A36360A0AC0C0C03636C0C020,8dd20200A0AB4B40A0AB45E5E9D9D35350B5D1B1C1D1E1F191A1B1C1D191A1!}B1C1D191A1B1C1D1E1F202122191A1B,152dd1C1D191A1B1C1D191A1B1C191A1B191A1B191A1B191A1B1C1D191A1B1C1D1E191A1B1C1D1E2525252525!}252525,445dd2510101010101E1E1E1E1E28282828283A3A3A3A3A3A3A3A3A3A48484848485252525252626262627070707A7A,234dd7A8484849!}292929292A0A0A0A0A0A0AAAAAAAAAAAA111921293139414951332829301A39302F331A3A302F331A,568dd2F222A2523342936251A39302F331A3A30!}2F331A212C341A38361A39361A3A361A2635252C1A33282930331A33,504dd232F32251A322124292134292F2E00162C42586E849AB0C6DC000000000!}00027212D25002F3625320000000000,630dd000000003335232325333326352C002C212E24292E270000000000262134212C00332829300023322133!}280000,952cc00002635252C002C2536252C00233229342923212C000000000000002F3534002F26002635252C000000000000,80cc0000322124! }292134292F2E002F3625322C2F212400000000000000002635252C1A000000101010000000000000,53dd0000000000273221362934391A0000000000!!}000000000000000000322534322F26293225010000000000000000,808 cc000022791A00346F6D00287564736F6E00000000000000212E212C2F27002!"}36F6D707574696E67000000000500,19cc000A18302C2D280200000000000000000001000002000000001818187E3C180000183C7E1818180000180C7!#}E7E,87 dd0C18000018307E7E301800003C1C3464C0000000000C98B0E0F000AD3DCD313334000000000000030200030002,356*dd0001010000000!$}00000000806000800060003030000000000000002010002000100000000000000000000000000,3984dd99009900009900000000000000010100990099!%}00019900000A141E28323C46505A000000010101020203030064,882>ddC82C90F458BC20840003070B0F13171B1F2300E8D0B8A0887058402800274E7!&}500102030581603070401070F17,849Hdd1F38393A3B3C3D3E3F0001020304050607070F171F272F373F0008101820283038000102030405060738393A!'}3B,146Rdd3C3D3E3F0008101820283038070F171F272F373FC4163402FFC85A0078FF008040F02010003248521E28000306,851\dd0900000001010!(}202004998479645940007142128354216C4000000000000000000000000000000000000000000,966D2:RETRMAIN.BAS1\dd0900000001010 i2 REM *** CASSETTE VERSION ***65 IF PASS=2 THEN FOR X=1 TO 33:PUT #1,0:NEXT X:CLOSE #1:END 70 ? "READY CASSETTE AND PRESS R%*}ETURN";:OPEN #1,8,128,"C:":RESTORE 200:FOR X=1 TO 40:READ N:PUT #1,N:NEXT X200 DATA 0,41,216,7,255,7,169,0,141,47,2,169,60,1%+}41,2,211,169,0,141,231,2,133,14,169,56,141,232,2210 DATA 133,15,169,58,133,10,169,8,133,11,24,965,7,169,0,141,47,2,169,60,1$b2 REM *** DISK VERSION ***65 IF PASS=2 THEN PUT #1,224:PUT #1,2:PUT #1,225:PUT #1,2:PUT #1,20:PUT #1,40:CLOSE #1:END 70 ? ")-}INSERT DISK WITH DOS, PRESS RETURN";:DIM IN$(1):INPUT IN$:OPEN #1,8,0,"D:AUTORUN.SYS"90 PUT #1,255:PUT #1,255:PUT #1,0:PUT #).}1,40:PUT #1,54:PUT #1,60SS RETURN";:DIM IN$(1):INPUT IN$:OPEN #1,8,0,"D:AUTORUN.SYS"90 PUT #1,255:PUT #1,255:PUT #1,0:PUT #((0(CCCCCCCCCC1C1C1C1C1C1C1C1C1C1C2C2C2C2C3C3C5C5C6C18C21C22C23C25C70CONSOK27CH-0}ARVCSWAVWUABCUUPLFISRACOUNZSPLZZAABBCCZZZZPLPPMBASCHSECHORCHPO-1} -2}-3} !"#$@%&'()*+,-./-4}0123456789:;<=>?-5}@ABCDEFGHIJKLMN-6}OPQRSTUVWXYZ[-7}ˠ®젦ʮǠРŠ?6-@6-%6-%'6-%/6-%76-%?-8}6-%$K 6-%6-%6-%#6-%+6-%36-%;6-%C6-%K6-%.+ 6-%6-%6-%#6-%+6-%-9}8E 6-%6-%6-%#6-%+6-%36-%;6-%E6-$%BG 6-$6-%6-%#6-$/6-A;6-B2y-:}G6-@uL;,9, A3`V* A5 A8` (}* A9p`' 6-6-6-6-!6-'6-jN -;}68,-68,-68,-'68,-068,-66-<6-B6-H6-N6-tG-,$%"68,-& ,-G(-<} ~$ -( $ A)ǠӠ 6-%6-%6-% -(-=}:- 6-%"*"*"#,- A2 )!%A2! !) !6-$+!,%$+ , "->}6-%! !) !6-$+!,%$+ , "6-%! !) !6-$+!,%$+ , "6-% ! %-?}%!%ǠӠ(2 A<ApF$H:, AP5 6-6-P:$H:,%-@},5AAAZdΠҠϠnx6-P:'&,6-P:'&,  6- !6-&-A}'1&%*6-' A'1%%*6-' A, -&%6-(F"6-, A-B}ΠҠŠ6-P:'&,6-P:'&,  6- !6-&/ 6-&1&%*%6-C}-/ A'1%%*6-' A, -&%6-(F"6-, AΠҠҠ-D}",6-P:'&,6-P:'&,6  6-@ !6-&J/ 6-&1&%*%6-/ AT'1%%-E}*6-' A^, -&%6-(F"6-, AhrȠԠ|7 6-%"6--F}%7&AA AP A< 6--&%( &-&%/(P<6-P:'&,+"*+"%)"-G}&%,!6-%+ A2 A 6-) -&%(  -%%)(Q A" 6-6--%%-H}"( ӠҠҠŠ9 F:,"6--/( 9 A )A-I} 6-R:,"A&@w0% "26-%% A`:% "26-&% A!D% -J}"26-&% A"0N% "26-%% A#pX Ab 2v 6-R:,-K}6- AԠŠ " ,!")")"6-! A @76-P:'&,6-P:'-L}&,#"-6-%%7 A&P!A2 1")(A2 " ,6-6- 6-% A-M}"A%`"A%  A& РŠ*4 " ,>!")")"6-! A-N}!pH6-P:'&,6-P:'&,R 1\")(A2f# "*!,6-#6-p Az"A-O}%"A%  A%@ԠŠ " ,) 6-&")")"6-) A#-P}  6-%+6-P:'&,6-P:'&,+!A2 1")(A2# "*!,6-#6--Q} A "A% "A%  A%@$ . ΠŠ8 B  " ,L !")")"-R}6-! A$@V +6-P:'&,6-P:'&,+!A2` 1j ")(A2t # "*!,6-#6--S}~ A "A% "A%  A%@  ΠΠӠ  --%!* %)!%*% %@E-T}A A2 %!* %%A A2 //%!* %)%!%@G*% %A A2-U} 7%%!* %)!%*% %@E-6-%7 A  6-& A2 %%!* %%6-%% A  6-&-V} A2( 3!%!* %)!%%*% %)6-%3 A2  6-& A2< F נӠP Z + 6-$-W}%#$%+-d '"$%*(8,AF' A&n  6-&& A2x  ,68,- -$-X}62  " 6--8,""6-%  "A'` ) 6-6-P:$H:,%,) A  -Y}ŠŠ  26-%$$-%,$%.68,-2  9 6-%6-6-$%!)6-%16-%96--Z}%  ŠŠ  3 #A'v-"#2+-/ 3  7785,0,64,0,50,0,42,0,0,50,0,42,42,4-[}2,42,42,42,42,0  "6- A)  "6- A)  "6- A)  !6- A)  -\}ŠŠϺ &&ƠŽΠôϠ ٠ƠՠĠҠ" ΠŠ, -]} A6 @ ǠРנŠJ T %-,/ %6-^ ''A)pA0@A1 A2-^}h ! %%!%r A|  ԠŠ  3-, !,',-,3,-_} 3 ,,,,!,',-,3, O 6-6-@6-#6-'/6-AR86-6'A6-6'I6-$-`}O6- $ 6-'6-!6-P:$H:,%,$$  ĠŠ  % ,/,/%,  /,-a}/ ) ,,,-%,)  Q 6-6-6-P:$H:,%,+6-AR76-AC6-@I6-Q6-b}-' " 6-66-66-'6-"$  ĠŠ& 0 /-, %-+,/ :  ,-c}/,/D ^ 6-6-P:$H:,%,!6-$-6-A96-A6E6-%+",K6-X6-6&+",^6-N $6-%++"-d},%',6-!6-$$X b ȠŠl ҠŠӠšv Ġˠ  Ƞ   6--e}6-& *-62"$%*- !  6-!6-P:$H:,%, 5(6-6--+(-f} game over5 A   A  ŠŠ  +0* ` -#(*** ***(-g}(A( by bernie ertl`(@ and john euker4 Y 6--#( color? /6-@B56-;6-A6--q}SBJDOS SYSB NGR10X7 BASBZGR10X7 ASMB`FINESC1 BASBgFINESC2 BASB xHEXPAD BASBHEXPAD ASMBACONVERT BASBcRETRMAINBASB)RETRCASSLSTB,RETRDISKLSTBQ/LUMBER BASBPSOUND1 PILB2PSOUND2 PILB%MUSE BASBMUSEDEMOBASB[MUSE ASMB?BOOTCAMPASMB/GDISASM BASBvMUSE EXEG6-M6-Y6-A>  - H F:,"A4 R  A4` A4\ O -( black/white?#6-)6-/6-r}-56-A6-AHI6-$O6-f  - p F:,"A3z  A4` A4@ 6 F:,"-,(one mo-s}ment please.6 A $  Я͠Ӡ  AR F #A6P A50'%$5%@C-t}C%@iF$ %-A6A"!%  !-AtA!  6-F:A,&6-$ %-u}-%A#%A G!%  )-%A%%A4"%)  )-%A%A("%) )-%A-v}7%Ay"%) )-%A%Aa"%) ! %%!%$'6-B2H6-A-w}'6-A.SAY@b!A#5A%@GB2w@SBBy86-?:A,$BBB-x}162,3,189,244,6,240,89,56,221,240,6,240,83,141,254,6,106,141LAA255,6,142,253,6,24,169,0,109,253,6,24,109,252,6,133,204,13-y}3VFF206,189,240,6,133,203,173,254,6,133,205,189,248,6,170,232,46,255`FF6,144,16,168,177,203,145,205,169,0,145,203,136,2-z}02,208,244,76,87jEE6,160,0,177,203,145,205,169,0,145,203,200,202,208,244,174,253,6tCC173,254,6,157,240,6,189,236,6,240,-{}48,133,203,24,138,141,253,6~DD109,235,6,133,204,24,173,253,6,109,252,6,133,206,189,240,6,133GG205,189,248,6,170,160,0,-|}177,203,145,205,200,202,208,248,174,253,6;;169,0,157,236,6,202,48,3,76,2,6,76,98,228,0,0,104,169 7,162,6,160,0,32,92-}},228,96ii24,24,16,26,60,88,24,60,100,70,24,60,126,255,255,255,255,255,255,255,255,255,255,231,195,153,153,66ff38,24,0-~},0,0,0,0,0,0,0,24,60,126,255,255,255,255,255,255,255,255,255,255,231,195,153,153,66,38,24..24,38,66,153,153,195,231,255,2-}55,255,255AA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255ee255,255,255,255,255,255,255,255,255,255,255,-}255,255,255,126,60,24,24,60,126,255,255,255,255,255BB255,255,255,255,255,255,255,255,255,231,195,153,153,66,38,24//0,-}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0^^0,24,60,126,255,255,255,255,255,255,255,255,255,255,255,255,255,231,195,153,153,-}66,38,24ǠԠ CC60,126,126,126,126,126,126,60,255,255,255,255,255,255,255,255??255,255,255-},255,255,255,255,0,56,186,214,124,56,16,56,108(<<254,255,254,255,255,254,252,254,0,0,8,28,46,126,252,562LL0,48,24,28,18-}6,127,190,28,0,0,0,16,96,48,120,126,0,24,60,60,60,60,24,0<> #A8`6. NXYZWFPQD26-+F:A,&,$>6-BsDF(-}-%&%F:%, (-P36-%+@:7,,&,$-#"+%/ 3 Z7-@A"%&&F:%,& 4-}AV'7$dnנǠĠx A,/,! /,,,!,! ,-},,,!, ,,/! A-,!  --(xxw & %-}%%#0&$ D2:LUMBER.BAS! A-,!  --(xxw & %,.10 *START20 , SO:2530 , PA:2040 , SO:050 , PA:34060 , C:#C=#C+170 , J(#C<120):*START80 , E:0x10 J:*YES20 *YES30 , C:#S=040 , C:@B1373=1650 , C:@B1374=260 , WRITE:S,}70 , T:WHICH GAME DO YOU WANT TO5} PLAY? (TYPE 1,2,3,4,5,6)80 , A:90 , M:1,2,3,4,5,6100 , TN:WHAT?110 , PAN:200120 , JN:*YES130 , JM:*5}ONE,*TWO,*THREE,*FOUR,*FIVE,*SIX140 , E:150 *ONE160 , C(#C=0):$WORD=UP170 , C(#C=1):$WORD=PUP180 , C(#C=2):$5}WORD=CUP190 , C(#C=3):$WORD=IS200 , C(#C=4):$WORD=IN210 , C(#C=5):$WORD=ON220 , C(#C=6):$WORD=MOUSE230 , 5}C(#C=7):$WORD=HOUSE240 , C(#C=8):$WORD=ALL250 , C(#C=9):$WORD=TALL260 , C(#C=10):$WORD=SMALL270 , C(#C=11):$W5}ORD=WE280 , C(#C=12):$WORD=ARE290 , C(#C=13):$WORD=WALL300 , C(#C=14):$WORD=BALL310 , C(#C=15):$WORD=FALL3205} , C(#C=16):$WORD=OFF330 , C(#C=17):$WORD=THE340 , C(#C=18):$WORD=PLAY350 , C(#C=19):$WORD=DAY360 , C:#Z=15}11370 , C:#A=1380 , J(#C=0):*START390 , J(#C>0):*TAPE400 , E:410 *TWO420 , C(#C=0):$WORD=NIGHT430 , 5}C(#C=1):$WORD=FIGHT440 , C(#C=2):$WORD=HE450 , C(#C=3):$WORD=ME460 , C(#C=4):$WORD=AFTER470 , C(#C=5):$WORD=H5}IM480 , C(#C=6):$WORD=SEE490 , C(#C=7):$WORD=BEE500 , C(#C=8):$WORD=THREE510 , C(#C=9):$WORD=TREE520 , C(5}#C=10):$WORD=NOW530 , C(#C=11):$WORD=FISH540 , C(#C=12):$WORD=HOW550 , C(#C=13):$WORD=CAN560 , C(#C=14):$WORD5}=THAT570 , C(#C=15):$WORD=RED580 , C(#C=16):$WORD=THEY590 , C(#C=17):$WORD=CALL600 , C(#C=18):$WORD=BED610 ,5} C(#C=19):$WORD=AM620 , C:#Z=150630 , C:#A=2640 , J(#C=0):*START650 , J(#C>0):*TAPE660 , E:670 *THREE5}680 , C(#C=0):$WORD=AND690 , C(#C=1):$WORD=PAT700 , C(#C=2):$WORD=SAT710 , C(#C=3):$WORD=HAT720 , C(#C=4)5}:$WORD=CAT730 , C(#C=5):$WORD=BAT740 , C(#C=6):$WORD=NO750 , C(#C=7):$WORD=SIT760 , C(#C=8):$WORD=DO770 , 5} C(#C=9):$WORD=SAD780 , C(#C=10):$WORD=DAD790 , C(#C=11):$WORD=BAD800 , C(#C=12):$WORD=HAD810 , C(#C=13):$WOR5}D=VERY820 , C(#C=14):$WORD=WHAT830 , C(#C=15):$WORD=THING840 , C(#C=16):$WORD=SING850 , C(#C=17):$WORD=SONG85}60 , C(#C=18):$WORD=LONG870 , C(#C=19):$WORD=YOU880 , C:#A=3890 , C:#Z=188900 , J(#C=0):*START910 , J(5}#C>0):*TAPE920 , E:930 *FOUR940 , C(#C=0):$WORD=SAY950 , C(#C=1):$WORD=WALK960 , C(#C=2):$WORD=LIKE970 , 5} C(#C=3):$WORD=TALK980 , C(#C=4):$WORD=HOP990 , C(#C=5):$WORD=POP1000 , C(#C=6):$WORD=TOP1010 , C(#C=7):$WORD5}=STOP1020 , C(#C=8):$WORD=MUST1030 , C(#C=9):$WORD=NOT1040 , C(#C=10):$WORD=BROWN1050 , C(#C=11):$WORD=SIDE15}060 , C(#C=12):$WORD=DOWN1070 , C(#C=13):$WORD=WHERE1080 , C(#C=14):$WORD=THERE1090 , C(#C=15):$WORD=OUT1100 5}, C(#C=16):$WORD=OF1110 , C(#C=17):$WORD=TOWN1120 , C(#C=18):$WORD=BACK1130 , C(#C=19):$WORD=BLACK1140 , C5}:#Z=2251150 , C:#A=41160 , J(#C=0):*START1170 , J(#C>0):*TAPE1180 , E:1190 *FIVE1200 , C(#C=0):$WORD=CAM5}E1210 , C(#C=1):$WORD=WITH1220 , C(#C=2):$WORD=SNACK1230 , C(#C=3):$WORD=EAT1240 , C(#C=4):$WORD=WITH1250 , 5} C(#C=5):$WORD=JUMP1260 , C(#C=6):$WORD=BUMP1270 , C(#C=7):$WORD=FAST1280 , C(#C=8):$WORD=PAST1290 , C(#C=95}):$WORD=WENT1300 , C(#C=10):$WORD=TENT1310 , C(#C=11):$WORD=SENT1320 , C(#C=12):$WORD=INTO1330 , C(#C=13):$WO5}RD=WET1340 , C(#C=14):$WORD=GET1350 , C(#C=15):$WORD=DOG1360 , C(#C=16):$WORD=HELP1370 , C(#C=17):$WORD=YELP5}1380 , C(#C=18):$WORD=TOMORROW1390 , C(#C=19):$WORD=THEY1400 , C:#Z=2581410 , C:#A=51420 , J(#C=0):*START5}1430 , J(#C>0):*TAPE1440 , E:1450 *SIX1460 , C(#C=0):$WORD=HILL1470 , C(#C=1):$WORD=WILL1480 , C(#C=2):$W5}ORD=WENT1490 , C(#C=3):$WORD=STILL1500 , C(#C=4):$WORD=FATHER1510 , C(#C=5):$WORD=MOTHER1520 , C(#C=6):$WORD=5}SISTER1530 , C(#C=7):$WORD=BROTHER1540 , C(#C=8):$WORD=ONE1550 , C(#C=9):$WORD=MY1560 , C(#C=10):$WORD=OTHER5}1570 , C(#C=11):$WORD=READ1580 , C(#C=12):$WORD=LITTLE1590 , C(#C=13):$WORD=BIT1600 , C(#C=14):$WORD=WORD16105} , C(#C=15):$WORD=IF1620 , C(#C=16):$WORD=IT1630 , C(#C=17):$WORD=BIG1640 , C(#C=18):$WORD=CONSTANTINOPLE16505} , C(#C=19):$WORD=TIMBUKTU1660 , C:#Z=2891670 , C:#A=61680 , J(#C=0):*START1690 , J(#C>0):*TAPE1700 , 5}E:1710 *START1720 , T:WIND TAPE TO NUMBER #Z.THEN PUSH DOWN PLAY BUTTON AND LEAVE IT DOWN. WHEN YOU ARE READY, TYPE R.5}1730 , A:1740 , M:R1750 , TN:WHAT?1760 , JN:*START1770 , JM:*TAPE1780 *TAPE1790 , T:}1800 , T:WAI5}T1810 , TAPE:ON1820 , PA:3301830 , TAPE:OFF1840 , T:}1850 , T:ANSWER NOW1860 , T:1870 , J:*ANSWER5}1880 , E:1890 *ANSWER1900 , A:1910 , M:$WORD1920 , JN:*WRONG1930 , JM:*RIGHT1940 , E:1950 *WRONG195}60 , C:#T=#T+11970 , SO:131980 , PA:301990 , SO:72000 , PA:502010 , SO:02020 , J(#T=3):*THIRDWRONG5}2030 , T:TRY AGAIN.2040 , J:*ANSWER2050 , E:2060 *THIRDWRONG2070 , C:#T=02080 , T:2090 , T:THE RIGHT5} ANSWER IS:2100 , T: $WORD2110 , PA:2002120 , C:#C=#C+12130 , J(#A=1):*ONE2140 , J(#A=2):*TWO2150 5}, J(#A=3):*THREE2160 , J(#A=4):*FOUR2170 , J(#A=5):*FIVE2180 , J(#A=6):*SIX2190 , E:2200 *RIGHT2210 , 5} WRITE:S,}2220 , WRITE:S,2230 , WRITE:S,2240 , WRITE:S,2250 , WRITE:S, $WORD2260 , T:2270 , T:CORR5}ECT!2280 , C:#S=#S+12290 , C:#C=#C+12300 , SO:132310 , PA:202320 , SO:202330 , PA:202340 , SO:255}2350 , PA:302360 , SO:02370 , J(#C=20):*END2380 , J(#A=1):*ONE2390 , J(#A=2):*TWO2400 , J(#A=3):*THREE5}2410 , J(#A=4):*FOUR2420 , J(#A=5):*FIVE2430 , J(#A=6):*SIX2440 , E:2450 *END2460 , WRITE:S,}2470 , 5}WRITE:S, YOU GOT #S RIGHT.2480 , WRITE:S, CONGRATULATIONS2490 , J:*AGAIN2500 , E:2510 *AGAIN2520 , T:YOU J5}UST FINISHED GAME #A.2530 , T:WANT TO PLAY AGAIN?2540 , A:2550 , M:YES,NO2560 , CY:#C=02570 , JM:*YES,*NO5}2580 , E:2590 *NO2600 , E:NT TO PLAY AGAIN?2540 , A:2550 , M:YES,NO2560 , CY:#C=02570 , JM:*YES,*NO4$PLINSUBYTCHECLSMSd=========================9}nmUse Memory Usage MonitorxVersion 1.0by Brian MoriartyANALOG Computing #14=======================9}==5(}Verifying DATA line: +6-5#A-AA@@=-@#@(--@9}@$1"96-%= (" %(Bad DATA at line (@%F:A,%AV$F:A,=(Line  missing!@9}T 0($Insert a disk with DOS in Drive #1.T(Press to write mUse file. F:B2y,@A R(9}Writing AUTORUN.SYS.' AR@@ D:AUTORUN.SYSu*@AU)*@AU<*@9}O*@@1b*@@qu*@@4-AA@@4#-@@$9}",*@0 4"y *@A$-*@@@*@A%S*@@f*@@9}y*@@4$@!(mUse disk OK.$"##(Disk I/O error #F:A,,* M/L PROGRAM DATA\\39}2,255,255,216,169,1,141,231,2,169,34,141,232,2,169,11,133,82,169,15,133,85,169,0,2846__133,86,169,3,133,84,169,89,160,33,9}32,254,32,32,79,33,165,136,133,203,165,137,133,204,5643dd160,1,177,203,48,59,230,212,208,2,230,213,200,177,203,133,208,209}0,177,203,133,209,230,205,9664ff208,2,230,206,200,177,203,208,13,230,201,208,2,230,202,200,177,203,201,155,208,243,164,209}9,13944gg196,208,208,222,24,165,208,101,203,133,203,144,195,230,204,208,191,169,103,160,33,32,254,32,17770bb32,24,33,9}169,117,160,33,32,254,32,165,205,133,212,165,206,133,213,32,24,33,169,131,160,20637$aa33,32,254,32,165,201,133,212,165,2029},133,213,32,24,33,169,145,160,33,32,254,32,216,56,23598.cc165,140,229,136,233,3,133,212,165,141,229,137,133,213,32,24,33,39}2,79,33,165,134,133,203,267358bb165,135,133,204,165,203,197,136,208,9,165,204,197,137,208,3,76,99,32,160,0,177,203,240,3019}91B^^94,48,96,230,206,41,1,240,113,32,68,218,216,56,160,4,177,203,233,1,133,212,200,177,33350Lbb203,233,0,133,213,56,209}0,177,203,233,1,133,201,200,177,203,233,0,133,202,165,201,208,4,37062Vee165,202,240,26,32,170,217,32,182,221,32,68,218,1659},201,133,212,165,202,133,213,32,170,217,40710`ee32,219,218,32,210,217,216,24,165,212,101,208,133,208,165,213,101,209,133,29}09,76,82,32,230,44355jcc205,208,23,230,207,41,1,240,17,216,24,160,6,177,203,101,210,133,210,200,177,203,101,211,47859tbb9}133,211,216,24,165,203,105,8,133,203,165,204,105,0,133,204,76,196,31,169,159,160,33,32,50927~aa254,32,32,68,218,165,205,19}33,212,32,24,33,169,173,160,33,32,254,32,165,206,133,212,32,53936cc24,33,169,187,160,33,32,254,32,165,208,133,212,165,2099},133,213,32,170,217,32,182,221,32,57184``68,218,169,6,133,212,32,170,217,32,219,218,32,27,33,169,201,160,33,32,254,32,1659},207,60223bb133,212,32,24,33,169,215,160,33,32,254,32,165,210,133,212,165,211,133,213,32,24,33,169,63252dd229,160,33,9}32,254,32,56,165,132,229,130,133,212,165,133,229,131,133,213,32,24,33,169,243,66554``160,33,32,254,32,56,173,229,2,229,149}4,133,212,173,230,2,229,145,133,213,32,24,33,169,69626XX2,133,82,76,77,160,162,0,157,68,3,152,157,69,3,169,11,157,66,3,169}9,14,157,72,71745``3,138,157,73,3,76,86,228,32,170,217,32,230,216,160,255,200,177,243,16,251,41,127,145,75021``243,209}0,169,155,145,243,152,162,0,157,72,3,138,157,73,3,165,243,157,68,3,165,244,157,78295ZZ69,3,169,9,157,66,3,32,86,228,32,689},218,216,96,162,28,169,0,149,201,202,16,251,80925``96,109,85,115,101,32,86,49,46,48,32,32,32,29,155,160,160,160,160,160,19}63,160,204,233,83532ii238,229,243,160,32,160,160,160,160,163,160,211,244,237,238,244,243,160,32,160,163,160,210,197,878969}ii205,160,227,232,225,242,243,160,32,160,208,242,239,231,242,225,237,160,210,193,205,160,32,160,92526jj160,160,160,169}0,160,163,160,214,225,242,243,160,32,160,160,160,160,163,160,193,242,242,225,249,96879 jj243,160,32,160,160,160,193,242,249}2,225,249,160,210,193,205,160,32,160,160,160,163,160,211,244,101163jj242,233,238,231,243,160,32,160,160,211,244,242,233,29}38,231,160,210,193,205,160,32,160,214,225,105820kk242,238,225,237,229,160,210,193,205,160,32,160,160,160,160,198,242,229,9}229,160,210,193,205,160,110417(ZZ32,165,12,141,1,31,165,13,141,2,31,169,0,133,12,169,31,133,13,169,1,141,231,2,1123552[[9}169,34,141,232,2,169,47,160,34,32,254,32,162,0,142,68,2,232,134,9,76,0,160,125,114771<MM29,109,85,115,101,32,49,46,48,32,9}79,75,155,0,0,0,0,0,0,0,0,0,0,0,115726 D2:MUSE.BAS32,134,9,76,0,160,125,114771<MM29,109,85,115,101,32,49,46,48,32,8:  DABSP@@ mUse v1.0 Demo program..9@,=}9@<@,;@,-6-6-@!6--6-@( THIS IS A TEST2 ( ( (<D=}2:MUSEDEMO.BAS,;@,-6-6-@!6--6-@( THIS IS A TEST2 ( ( (<D<0100 ; ====================0110 ; mUse V1.00120 ; by Brian Moriarty0130 ; ANALOG Computing #140140 ; ====================A}0150 ;0160 ; BASIC addresses0170 ;0180 VNTP = $820190 VNTD = $840200 VVTP = $860210 STMTAB = $880220 STARP = $8C0A}230 MEMTOP = $900240 COLD = $A0000250 WARM = $A04D0260 ;0270 ; OS equates0280 ;0290 BOOT? = $090300 DOSINI = $0C031A}0 LMARGN = $520320 ROWCRS = $540330 COLCRS = $550340 COLDST = $02440350 RUNAD = $02E00360 HIMEM = $02E50370 MEMLO = $02A}E70380 ICCOM = $03420390 ICBADR = $03440400 ICBLEN = $03480410 ICAUX1 = $034A0420 ICAUX2 = $034B0430 CIOV = $E4560440A} ;0450 ; Floating point equates0460 ;0470 FR0 = $D40480 INBUFF = $F30490 FASC = $D8E60500 IFP = $D9AA0510 FPI = A} $D9D20520 ZFR0 = $DA440530 FMUL = $DADB0540 FMOVE = $DDB60550 ;0560 ; Internal program equates0570 ;0580 ORIGIN = $A}1F000590 REMS = $C9 ; # REM chars0600 PNTR = $CB ; Z-page pointer0610 STATS = $CD ; # statements0620 LNOFF A}= $D0 ; line offset0630 STOFF = $D1 ; stmnt offset0640 TEMP = REMS ; scratch pad0650 SVARS = STATS ; # simplA}e vars0660 ARRYS = $CE ; # arrays0670 STRGS = $CF ; # strings0680 ADIMS = LNOFF ; array RAM use0690 SDIMS = $D2A} ; string RAM use0700 ;0710 *= ORIGIN0720 ;0730 START0740 JSR $FFFF ; handle DOS0750 CLD ; fA}or safety0760 LDA # NEWMEMLO0790 STA MEMLO+10800 ;0810 LDA #110A}820 STA LMARGN ; change margin0830 ;0840 ; Position/print title0850 ;0860 LDA #150870 STA COLCRS0880 LA}DA #00890 STA COLCRS+1 ; X=140900 LDA #30910 STA ROWCRS ; Y=30920 LDA # TITLE094A}0 JSR PRINT0950 ;0960 JSR VCLEAR ; init vars0970 ;0980 ; Init BASIC line pointer0990 ;1000 LDA STMTAB1010A} STA PNTR1020 LDA STMTAB+11030 STA PNTR+11040 ;1050 ; Check for last lineno ($8000)1060 ;1070 NEWLINE1080 A} LDY #11090 LDA (PNTR),Y1100 BMI LNPRINT ; exit if done1110 ;1120 ; Increment line count1130 ;1140 LINEINC1A}150 INC FR01160 BNE GETOFFS1170 INC FR0+11180 ;1190 ; Fetch line & stmnt offsets1200 ;1210 GETOFFS1220 A} INY 1230 LDA (PNTR),Y1240 STA LNOFF1250 INY 1260 NEWSTOFF1270 LDA (PNTR),Y1280 STA STOFF1290 ;13A}00 ; Increment statement count1310 ;1320 INC STATS1330 BNE FINDREMS1340 INC STATS+11350 ;1360 ; Is this a RA}EM statement?1370 ;1380 FINDREMS1390 INY 1400 LDA (PNTR),Y ; get token1410 BNE ENDPNTR? ; 0=REM1420 ;1430 A}; Count # of chars in REM stmnt1440 ;1450 RCOUNT1460 INC REMS1470 BNE SKIP1480 INC REMS+11490 SKIP1500 A} INY 1510 LDA (PNTR),Y1520 CMP #$9B ; EOL?1530 BNE RCOUNT1540 ;1550 ; Any more stmts on this line?1560 ;A}1570 ENDPNTR?1580 LDY STOFF1590 CPY LNOFF1600 BNE NEWSTOFF1610 ;1620 ; Add LNOFF to PNTR1630 ;1640 CLA}C 1650 LDA LNOFF1660 ADC PNTR1670 STA PNTR1680 BCC NEWLINE1690 INC PNTR+11700 BNE NEWLINE1710 A};1720 ; Print # lines & statements1730 ;1740 LNPRINT1750 LDA # L11770 JSR PRINT ; "# LinesA}"1780 JSR NUMPRINT ; in FR01790 ;1800 LDA # L21820 JSR PRINT ; "# Stmnts"1830 LDA A}STATS1840 STA FR01850 LDA STATS+11860 STA FR0+11870 JSR NUMPRINT1880 ;1890 ; Print # REM characters190B}0 ;1910 LDA # L31930 JSR PRINT ; "# REM chars"1940 LDA REMS1950 STA FR01960 LDB}A REMS+11970 STA FR0+11980 JSR NUMPRINT1990 ;2000 ; Calculate & print size of2010 ; token table2020 ;2030 B}LDA # L42050 JSR PRINT ; "Program RAM"2060 CLD 2070 SEC 2080 LDA STARP2090 SBCB} STMTAB2100 SBC #3 ; line $80002110 STA FR02120 LDA STARP+12130 SBC STMTAB+12140 STA FR0+12150B} JSR NUMPRINT2160 ;2170 ; Count # of variables2180 ;2190 JSR VCLEAR2200 LDA VVTP2210 STA PNTR2220 B}LDA VVTP+12230 STA PNTR+12240 ;2250 ; End of value table?2260 ;2270 TABEND?2280 LDA PNTR2290 CMP STMTAB23B}00 BNE VARCNT2310 LDA PNTR+12320 CMP STMTAB+12330 BNE VARCNT2340 JMP VPRINT ; none left2350 ;2360 B}VARCNT2370 LDY #02380 LDA (PNTR),Y ; get v-type2390 BEQ SVPLUS ; 0 = simple var2400 BMI SPLUS ; $8n = B}string2410 ;2420 ; Handle a numeric array2430 ;2440 INC ARRYS2450 AND #$01 ; is it DIMed?2460 BEQ ADD8 B } ; not yet2470 JSR ZFR02480 ;2490 ; Fetch DIM1, subtract 1,2500 ; store in FR02510 ;2520 CLD 2530 SEC 25B }40 LDY #42550 LDA (PNTR),Y ; lsb2560 SBC #12570 STA FR02580 INY 2590 LDA (PNTR),Y ; msb2600 B } SBC #02610 STA FR0+12620 ;2630 ; Fetch DIM2, subtract 1,2640 ; store in TEMP2650 ;2660 SEC 2670 INY 2680B } LDA (PNTR),Y ; lsb2690 SBC #12700 STA TEMP2710 INY 2720 LDA (PNTR),Y ; msb2730 SBC #02740 B }STA TEMP+12750 ;2760 ; If DIM2=0, this is a2770 ; one-dimensional array2780 ;2790 LDA TEMP2800 BNE MULTIPLY ; mB}ust be 2-D2810 LDA TEMP+12820 BEQ ADDA ; must be 1-D2830 ;2840 ; Multiply DIM1 by DIM22850 ; to determine theB} number of2860 ; cells in this 2-D array2870 ;2880 MULTIPLY2890 JSR IFP ; DIM1 to FP2900 JSR FMOVE ; into B}FR12910 JSR ZFR02920 LDA TEMP ; put DIM22930 STA FR0 ; into FR02940 LDA TEMP+12950 STA FR0+1B}2960 JSR IFP ; DIM2 to FP2970 JSR FMUL ; DIM2 * DIM12980 JSR FPI ; into integer2990 ;3000 ; Add thB}e result to the total3010 ; number of array cells3020 ;3030 ADDA3040 CLD 3050 CLC 3060 LDA FR03070 ADCB} ADIMS3080 STA ADIMS3090 LDA FR0+13100 ADC ADIMS+13110 STA ADIMS+13120 JMP ADD8 ; whew!3130 ;31B}40 ; Handle a simple variable3150 ;3160 SVPLUS3170 INC SVARS ; simple enough3180 BNE ADD83190 ;3200 ; Handle B}a string3210 ;3220 SPLUS3230 INC STRGS3240 AND #$01 ; DIMed yet?3250 BEQ ADD8 ; guess not3260 CLDB} 3270 CLC 3280 LDY #63290 LDA (PNTR),Y3300 ADC SDIMS3310 STA SDIMS3320 INY 3330 LDA (PNTR)B},Y3340 ADC SDIMS+13350 STA SDIMS+13360 ;3370 ; Point to next variable3380 ;3390 ADD83400 CLD 3410 CLCB} 3420 LDA PNTR3430 ADC #83440 STA PNTR3450 LDA PNTR+13460 ADC #03470 STA PNTR+13480 JMP TAB}BEND?3490 ;3500 ; Print number of variables3510 ;3520 VPRINT3530 LDA # L53550 JSR PRINT ;B} "# Vars"3560 JSR ZFR03570 LDA SVARS3580 STA FR03590 JSR NUMPRINT3600 ;3610 ; Print number of arrays36B}20 ;3630 LDA # L63650 JSR PRINT ; "# Arrays"3660 LDA ARRYS3670 STA FR03680 JSRB} NUMPRINT3690 ;3700 ; Print amount of array RAM3710 ;3720 LDA # L73740 JSR PRINT ; "Array B}RAM"3750 LDA ADIMS3760 STA FR03770 LDA ADIMS+13780 STA FR0+13790 JSR IFP3800 JSR FMOVE3810 B} JSR ZFR03820 LDA #63830 STA FR03840 JSR IFP3850 JSR FMUL ; ADIMS * 63860 JSR PRINTFP3870 ;3880B} ; Print number of strings3890 ;3900 LDA # L83920 JSR PRINT ; "# Strings"3930 LDA STRGSB }3940 STA FR03950 JSR NUMPRINT3960 ;3970 ; Print string RAM usage3980 ;3990 LDA # L9401B!}0 JSR PRINT ; "String RAM"4020 LDA SDIMS4030 STA FR04040 LDA SDIMS+14050 STA FR0+14060 JSR NUMB"}PRINT4070 ;4080 ; Calculate/print VNT RAM usage4090 ;4100 LDA # L104120 JSR PRINT ; "VarnB#}ame RAM"4130 SEC 4140 LDA VNTD4150 SBC VNTP4160 STA FR04170 LDA VNTD+14180 SBC VNTP+14190 B$}STA FR0+14200 JSR NUMPRINT4210 ;4220 ; Calculate/print free RAM4230 ;4240 LDA # L114260 B%} JSR PRINT ; "Free RAM"4270 SEC 4280 LDA HIMEM4290 SBC MEMTOP4300 STA FR04310 LDA HIMEM+14320 B&} SBC MEMTOP+14330 STA FR0+14340 JSR NUMPRINT4350 ;4360 ; Do a BASIC warmstart4370 ;4380 LDA #24390 STB'}A LMARGN ; Reset margin4400 JMP WARM4410 ;4420 ; * Text Print Subroutine *4430 ;4440 ; ENTRY:4450 ; Addr of text iB(}n A/Y (lsb/msb)4460 ;4470 PRINT4480 LDX #0 ; IOCB #0 (E:)4490 STA ICBADR,X ; lsb4500 TYA 4510 STA B)}ICBADR+1,X ; msb4520 LDA #$0B ; put char4530 STA ICCOM,X4540 LDA #14 ; fixed length4550 STA ICBLENB*},X4560 TXA 4570 STA ICBLEN+1,X4580 JMP CIOV ; self-return4590 ;4600 ; * Number Print Subroutine *4610 ;B+}4620 ; ENTRY:4630 ; 16-bit integer in FR04640 ;4650 NUMPRINT4660 JSR IFP ; to FP4670 PRINTFP4680 JSR FASC B,} ; to ATASCII4690 LDY #$FF ; find last char4700 LOOP4710 INY 4720 LDA (INBUFF),Y4730 BPL LOOP4740 B-} AND #$7F ; mask bit 74750 STA (INBUFF),Y4760 INY 4770 LDA #$9B4780 STA (INBUFF),Y ; install EOL479B.}0 TYA ; get length4800 LDX #0 ; IOCB #0 (E:)4810 STA ICBLEN,X4820 TXA 4830 STA ICBLEN+1,B/}X4840 LDA INBUFF ; addr of num4850 STA ICBADR,X4860 LDA INBUFF+14870 STA ICBADR+1,X4880 LDA #$09 B0} ; put record4890 STA ICCOM,X4900 JSR CIOV ; print number4910 JSR ZFR04920 CLD 4930 RTS 4940 ;4B1}950 ; * Clear Variables ($C9-$E5) *4960 ;4970 VCLEAR4980 LDX #$1C4990 LDA #05000 EMPTY5010 STA TEMP,X5020 B2} DEX 5030 BPL EMPTY5040 RTS 5050 ;5060 ; Message texts5070 ;5080 TITLE5090 .BYTE "mUse V1.0 ",$9B51B3}00 L15110 .BYTE " "5120 L25130 .BYTE " "5140 L35150 .BYTE "͠ "5160 L4B4}5170 .BYTE "͠ "5180 L55190 .BYTE " "5200 L65210 .BYTE " "5220 L75230B5} .BYTE "͠ "5240 L85250 .BYTE " "5260 L95270 .BYTE "͠ "5280 L105290 B6} .BYTE "͠ "5300 L115310 .BYTE "͠ "5320 ;5330 ; End of mUse routine5340 ;5350 NEWMEMLO5360 B7};5370 ; The following code is used5380 ; only during power-up --5390 ; It will be erased when BASIC5400 ; initializes itsB8}elf5410 ;5420 LDA DOSINI5430 STA START+15440 LDA DOSINI+15450 STA START+25460 ;5470 ; Replace DOSINI wB9}ith the5480 ; addr of the mUse code5490 ;5500 LDA # START5530 STA DOSIB:}NI+15540 ;5550 ; Now set MEMLO above mUse5560 ;5570 LDA # NEWMEMLO5600 B;} STA MEMLO+15610 ;5620 ; Announce successful load5630 ;5640 LDA # LOADED5660 JSR PRINB<}T5670 ;5680 ; Set up for jump into BASIC5690 ;5700 LDX #05710 STX COLDST5720 INX 5730 STX BOOT?5740 B=} JMP COLD5750 ;5760 ; Load OK message5770 ;5780 LOADED5790 .BYTE "}mUse 1.0 OK",$9B5800 ;5810 ; Set autorun vecB>}tor5820 ;5830 *= RUNAD5840 .BYTE NEWMEMLO5860 .END 800 ;5810 ; Set autorun vec@a0100 ;** DO-NOTHING DEMO PROGRAM **0110 ;0120 ;BY TOM HUDSON0130 ;0140 *= $???? ;YOUR ORIGIN!0150 ;0160 STARTF@} LDA BYTE1 ;COPY BYTE1..0170 STA BYTE2 ;TO BYTE20180 LDA #7 ;PUT A 7...0190 STA BYTE3 ;INFA} BYTE30200 JMP PART2 ;JUMP!0210 ;0220 PART1 LDA BYTE2 ;MOVE BYTE2...0230 STA BYTE4 ;TO BYTE40240 FB} JMP PART3 ;AND JUMP0250 ;0260 PART2 LDA RANDOM ;MOVE RANDOM..0270 STA BYTE1 ;TO BYTE10280 JMP PAFC}RT1 ;AND JUMP!0290 ;0300 PART3 LDA BYTE4 ;MOVE BYTE4...0310 STA BYTE5 ;TO BYTE50320 JMP START ;ANDFD} JUMP!0330 ;0340 ;DATA BYTES START HERE!0350 ;0360 BYTE1 .BYTE 1 ;NUMBER 10370 BYTE2 .BYTE 2 ;NUMBER 20380 BYFE}TE3 .BYTE 3 ;NUMBER 30390 BYTE4 .BYTE 4 ;NUMBER 40400 BYTE5 .BYTE 5 ;NUMBER 50410 RANDOM = $D20A ;RANDOFF}M NUMBER0420 ;0430 .ENDYTE4 .BYTE 4 ;NUMBER 40400 BYTE5 .BYTE 5 ;NUMBER 50410 RANDOM = $D20A ;RANDOD!ghOPCODESOPTABLEOPNHEXDIGITHEXPCSETOPRNDEC2HEPFINADOPCODOPOPNUADMODDECIMAILEOPRNDEDJH}@ JI}nx!!***************************!!* *!!* JJ} DIS-ASSEMBLER *!!* *!!* BY: MAURICE ELLIOTT *!!* 126 PARKVIEW PL. SE *JK}!!* CALGARY, ALBERTA *!!* T2J 4W5 CANADA *!!* TEL: (403) 278-9564 *!!* JL} *!!***************************0u-1:uGG;Ah,9AU,;@,;@,;@,;@,DuJM} #B#Nu%%SET UP ASSEMBLER MNEMONIC TABLEXu-@@Vbu " 67@$&@,.lu vu<<SET UP TABJN}LE TO DECIPHER OP CODES AND ADDRESSING MODESu-AUu"68,-u uHEXADECIMAL DIGITSu6.0JO}123456789ABCDEFu))SET UP LINE NUMBERS FOR SUBROUTINESu76-B 7ROUTINE TO SET UP INSTRUCTION OPERANDuD6-B"JP}DROUTINE TO CONVERT A DECIMAL NUMBER TO HEXADECIMALu6. u9 (START ADDRESS (DECIMAL)$9PC=PROGRAM CJQ}OUNTERu%!(FINISH ADDRESS (DECIMAL)%u Bpu+#+TO START OF USER'S DATA STATEMENTSv+A@JR}+SET TAB WIDTH TO 6. v))(!ADDR DEC OPN OPERAND DECvΠЛ v4"4READ OP CODE (WE HOPE) OF NEXT INSTRUCJS}TION*v!! )!AUB 4v< 6-8,"2(INVALID OP CODE AT < B >v$6-P:'A,$6-&JT}A$Hv. 6- 67@,..67@,.=:,Rv''(7@$&@<@$,\vooBBBJU}BBB BBBBBBBfv 6-%B0pv2A@JV}2RESTORE DEFAULT TAB WIDTH.zvwHHTHE FOLLOWING ROUTINES PRINT THE OPERAND FOR EACH ADDRESSING MODE.$w//IMPLIED (MODJW}E 1) AND ACCUMULATOR (MODE 2).w$6-@$INSTRUCTION LENGTH8w(Bw$wIMMEDIATE (MODE 3)w6-@ wJX}(#$w$wRELATIVE (MODE 4)w6-@ x%!6-%%&AV$+!A',%  xBBCONVERT RELATIVE ADDREJY}SS (DECIMAL) TO ABSOLUTE ADDRESS (HEX)x ($x$PxZERO-PAGE (MODE 5)Zx6-@ dx($nx$xZJZ}ERO-PAGE,X (MODE 6)x6-@ x($,Xx$yZERO-PAGE,Y (MODE 7)"y6-@ ,y($,YJ[}6y$|yABSOLUTE (MODE 8)y6-@ y ($y$yABSOLUTE,X (MODE 9)y6-@ y($J\},Xy$DzABSOLUTE,Y (MODE 10)Nz6-@ Xz($,Ybz$zINDIRECT (MODE 11)z6-@ zJ]}(($)z$ { INDEXED INDIRECT (MODE 12){6-@  {(($,X)*{$p{ INDIRECT INDEXED (MODJ^}E 13)z{6-@ {(($),Y{$}FFROUTINE TO SET UP INSTRUCTION OPERAND IN DECIMAL AND HEXADECIMAL }8J_}"@$81-BYTE INSTRUCTIONS HAVE NO OPERAND}&"&OPERAND FIRST (OR ONLY) BYTE}D )!AU:(UNEXPEJ`}CTED END AT %@D B (}!@B p2}$ 6- $6.7@<@,<}$F}"OPERAND SECOND BYTJa}EP}D )!AU:(UNEXPECTED END AT %@D B Z}6-%AV$6- d}$}DDROUTINE TO CONVJb}ERT A DECIMAL NUMBER TO 4-BYTE HEXADECIMAL FORM} 6.00006-@ 6-}"$}$6-P:'@,$6-&Jc}@$}##67<,.7%@<%@,}+ 6-6-&@+!B" ~$,~OP CODE MNEMONICS6~==ADC,Jd}AND,ASL,BCC,BCS,BEQ,BIT,BMI,BNE,BPL,BRK,BVC,BVS,CLC@~==CLD,CLI,CLV,CMP,CPX,CPY,DEC,DEX,DEY,EOR,INC,INX,INY,JMPJ~==JSR,LDAJe},LDX,LDY,LSR,NOP,ORA,PHA,PHP,PLA,PLP,ROL,ROR,RTIT~==RTS,SBC,SEC,SED,SEI,STA,STX,STY,TAX,TAY,TSX,TXA,TXS,TYA~;;THE FOLLOWJf}ING 16 DATA STATEMENTS DEFINE A 256-ELEMENT~==TABLE TO INTERPRET EVERY POSSIBLE BYTE VALUE (0-255) AS~==AN OP CODE AND Jg}AN ADDRESSING MODE. WHERE THE ENTRY IS~>>ZERO, THE BYTE VALUE DOES NOT REPRESENT A VALID OP CODE.~AANON-ZERO ENTRIES Jh}ARE IN THE FORMAT 'OPAD', WHERE OP=OP CODE~<<NUMBER (=POSITION IN ABOVE LIST OF MNEMONICS), AND AD=~11ADDRESSING MODE. Ji} THE ADDRESSING MODES ARE:~@@01=IMPLIED 02=ACCUMULATOR 03=IMMEDIATE 04=RELATIVE~@@05=ZERO PAGE 06=ZERO PAGE,X Jj} 07=ZERO PAGE,Y 08=ABSOLUTE~HH09=ABSOLUTE,X 10=ABSOLUTE,Y 11=INDIRECT 12=INDEXED INDIRECT~13=INDIRECT INDEXEJk}D~BBFOR EXAMPLE, A BYTE VALUE OF $21 IS INTERPRETED BY THE THIRDCCDATA STATEMENT ($2-), SECOND ENTRY ($-1). THE NUMBERJl} THERE IS@@212. THUS, $21 (DECIMAL 33) IS AN INDEXED INDIRECT 'AND'::OP CODE (THE 2ND MNEMONIC, WITH ADDRESSING MODJm}E 12).X==1101,3512,0,0,0,3505,305,0,3701,3503,302,0,0,3508,308,0b;;1004,3513,0,0,0,3506,306,0,1401,3510,0,0,0,3509,309,Jn}0l@@2908,212,0,0,705,205,4005,0,3901,203,4002,0,708,208,4008,0v88804,213,0,0,0,206,4006,0,4501,210,0,0,0,209,4009,0CJo}C4201,2412,0,0,0,2405,3305,0,3601,2403,3302,0,2808,2408,3308,0==1204,2413,0,0,0,2406,3306,0,1601,2410,0,0,0,2409,3309,0Jp}??4301,112,0,0,0,105,4105,0,3801,103,4102,0,2811,108,4108,0991304,113,0,0,0,106,4106,0,4701,110,0,0,0,109,4109,0@@Jq}0,4812,0,0,5005,4805,4905,0,2301,0,5401,0,5008,4808,4908,0??404,4813,0,0,5006,4806,4907,0,5601,4810,5501,0,0,4809,0,0IJr}I3203,3012,3103,0,3205,3005,3105,0,5201,3003,5101,0,3208,3008,3108,0EE504,3013,0,0,3206,3006,3107,0,1701,3010,5301,0,320Js}9,3009,3110,0FF2003,1812,0,0,2005,1805,2105,0,2701,1803,2201,0,2008,1808,2108,0<<904,1813,0,0,0,1806,2106,0,1501,1810Jt},0,0,0,1809,2109,0FF1903,4412,0,0,1905,4405,2505,0,2601,4403,3401,0,1908,4408,2508,0<<604,4413,0,0,0,4406,2506,0,4601Ju},4410,0,0,0,4409,2509,0 D2:DISASM.BAS05,2505,0,2601,4403,3401,0,1908,4408,2508,0<<604,4413,0,0,0,4406,2506,0,4601H-G" ة" RUVTY! O!˥̠0;ȱ˅ȱ˅ȱ ȱɛe˅ːпg! Nw} !u! ͅԥ΅ !! Ʌԥʅ !! 8ԥ剅 ! O!˥̥ň ʼnLc ^0`)q D8ȱNx}8ȱȱʥ DڥɅԥʅ eЅХeхLR )e҅ȱeӅi˥iL! DڥͅNy} !! ΅ !! Ѕԥх Dک !ɠ! υ !נ! ҅ԥӅ !! 8傅ԥ僅 !! 8吅ԭNz}呅 !RLMDE BHILV ؠȱ)ȩHIDE B V D``mUse V1.0 N{} ͠ ͠ ͠ ͠ N|}͠ ͠    "/" D L}mUse 1.0 OK" ͠ Lf